home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 4671-5.790 / dmg-4695 / giveway.17 / source / simon.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  2KB  |  36 lines
  1. 100 REM ~~~~~~~~~~~~~~~~~~~~ SIMON ~~~~~~~~~~~~~~~~~~~~
  2. 110 MODE
  3. 120 DIM
  4. 130 FOR
  5. 140 PEN
  6. 150 REPEAT
  7. 160 RESERVE
  8. 170 FOR
  9. 180 INK
  10. 190 BAR
  11. 200 LOCATE
  12. 210 NEXT
  13. 220 REPEAT
  14. 230 INC
  15. 240 VARNAME
  16. 250 FOR
  17. 260 REPEAT
  18. 270 VARNAME
  19. 280 IF
  20. 290 NEXT
  21. 300 UNTIL
  22. 310 LOCATE
  23. 320 LOCATE
  24. 330 END
  25. 340 REM ~~~~~~~~~~~~~~~~~~~~ REPEAT SEQUENCE ~~~~~~~~~~~~~~~~~~~~
  26. 350 FOR
  27. 360 FOR
  28. 370 RETURN
  29. 380 REM ~~~~~~~~~~~~~~~~~~~~ SHOW/REMOVE LIGHT/SOUND ~~~~~~~~~~~~~~~~~~~~
  30. 390 COLOUR
  31. 400 COLOUR
  32. 410 RETURN
  33. 420 DATA
  34. 430 DATA
  35. 5 REM Checked GFF א™
  36.